home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
walpeep
/
wallpap.frm
< prev
next >
Wrap
Text File
|
1995-05-08
|
5KB
|
174 lines
VERSION 2.00
Begin Form Form2
AutoRedraw = -1 'True
Caption = "Preview"
ClientHeight = 1470
ClientLeft = 120
ClientTop = 5160
ClientWidth = 4485
ControlBox = 0 'False
DrawStyle = 3 'Dash-Dot
FillStyle = 0 'Solid
Height = 1875
Icon = WALLPAP.FRX:0000
Left = 60
LinkMode = 1 'Source
LinkTopic = "Form2"
ScaleHeight = 98
ScaleMode = 3 'Pixel
ScaleWidth = 299
Top = 4815
Width = 4605
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
Height = 120
Left = 0
ScaleHeight = 6
ScaleMode = 3 'Pixel
ScaleWidth = 6
TabIndex = 1
Top = 30
Width = 120
End
Begin PictureBox DestinationPic
AutoSize = -1 'True
DrawMode = 1 'Blackness
DrawStyle = 3 'Dash-Dot
Height = 195
Left = -30
ScaleHeight = 11
ScaleMode = 3 'Pixel
ScaleWidth = 13
TabIndex = 0
Top = -15
Width = 225
End
End
Sub DestinationPic_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not InPic1 Then Exit Sub
Form1.Timer1.Enabled = False
Dragging = True
DestinationPic.AutoRedraw = False
If Not Metafile Then
Call DragPictureTo(Int(X), Int(Y), Shift)
End If
End Sub
Sub DestinationPic_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Dragging Then
MousePointer = 8
If DestinationPic.Left + X > ScaleWidth Then X = ScaleWidth - DestinationPic.Left
'If Y > ScaleHeight + 2 Then Y = ScaleHeight + 2
If DestinationPic.Top + Y > ScaleHeight Then Y = ScaleHeight - DestinationPic.Top
'Carole Rogers roooooolzzzzz!
If X * Y > 180000 Then
newY = Sqr(180000 * Y / X)
newX = 180000 / newY
X = newX
Y = newY
End If
Call DragPictureTo(Int(X), Int(Y), Shift)
Else
MousePointer = 0
'Beep
End If
End Sub
Sub DestinationPic_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not InPic1 Then Exit Sub
Moving = False
gDrawing = False
DoEvents
If Not Metafile Then Call DestinationPic_MouseMove(Button, Shift, X, Y)
Dragging = False 'stop moving this up!!!!
'it belongs after the mouse_move call
'Call DestinationPic_MouseMove(Button, Shift, X, Y)
'Call DestinationPic_MouseMove(Button, Shift, X, Y)
'Call DestinationPic_MouseMove(Button, Shift, X, Y)
DestinationPic.AutoRedraw = False
NonPersistentHDC = DestinationPic.hDC
DestinationPic.AutoRedraw = True
PersistentHDC = DestinationPic.hDC
dwRop& = &HCC0020
DoEvents
T% = BitBlt%(PersistentHDC, 0, 0, DestinationPic.Width, DestinationPic.Height, NonPersistentHDC, 0, 0, dwRop&)
DoEvents
Call WallPaper
Form1.Timer1.Enabled = True
End Sub
Sub Form_DblClick ()
If Form1.ShowAllFiles.Value = 0 Then
Call File1DClick
Else
Call List1DClick
End If
End Sub
Sub Form_Load ()
'Top = Form1.Top
Top = Form1.Top + Form1.Height - 15
Left = Form1.Left
Width = Form1.Width
End Sub
Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
MousePointer = 0
End Sub
Sub Form_Resize ()
'Command1.Width = ScaleWidth
'Form2.Visible = True
If Form2.WindowState = 1 Then ' minimized
Form2.Visible = False
Form2.WindowState = 0
Form1.WindowState = 1
Else
Form2.Visible = True
End If
If Not Loading% Then
Call DragPictureTo((Form2.DestinationPic.Width), (Form2.DestinationPic.Height), False)
Call WallPaper
Call PositionOutline
Call DottedLine
End If
End Sub
Sub Form_Unload (Cancel As Integer)
End
End Sub
Sub Picture1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
InPic1 = True
MousePointer = 8
Picture1.Visible = False
Picture1.Left = Picture1.Left + X
Picture1.Top = Picture1.Top + Y
Call DestinationPic_MouseDown(Button, Shift, (Picture1.Left - DestinationPic.Left), (Picture1.Top - DestinationPic.Top))
End Sub
Sub Picture1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
MousePointer = 8
If Not InPic1 Then Exit Sub
Call DestinationPic_MouseMove(Button, Shift, (Picture1.Left - DestinationPic.Left) + X, (Picture1.Top - DestinationPic.Top) + Y)
'Call DestinationPic_MouseMove(Button, Shift, (Picture1.Left) + X, (Picture1.Top) + Y)
End Sub
Sub Picture1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
Call DestinationPic_MouseUp(Button, Shift, (Picture1.Left - DestinationPic.Left) + X, (Picture1.Top - DestinationPic.Top) + Y)
'Call DestinationPic_MouseUp(Button, Shift, Picture1.Left + X, Picture1.Top + Y)
Picture1.Left = DestinationPic.Left + DestinationPic.Width - Picture1.Width - 1
Picture1.Top = DestinationPic.Top + DestinationPic.Height - Picture1.Height - 1
Form2.DestinationPic.Line (0, 0)-(Form2.DestinationPic.Width, 0)
Picture1.Visible = True
InPic1 = False
MousePointer = 0
Call DottedLine
'Beep
End Sub